#-----------------------------------------------------------#
#  죄와벌++ 이율배반 										#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
# 관직에 오름 Version 1.2
#--- [주의 사항] --------------------------------------------#
# 1. 이 스크립트는 이하의 이용 규정에 따라 배포하고 있습니다. 	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
# 관직에 오름 메뉴
sub changes{
	$wall="enter";
	$npc="null";
	if(!$type){

		&usrdata_read;
		&usrdata_open;
		require './inc/ore_sub-members-p1.cgi';&member_list;

		$log .= "참가자 집계를 갱신합니다. <br>\n";
		$log .= "전참가자 :$all_mem<br>$cmp[0]:$c0<br>$cmp[1]:$c1/$c1a<br>$cmp[2]:$c2/$c2a<br>$cmp[3]:$c3/$c3a<br>$cmp[4]:$c4/$c4a<br>$cmp[5]:$c5/$c5a<br>\n" if($mv_mode eq 'pc');
		$tm=0;
		$type='입국';

		&changes_menu1;

	}

	&dat_write;
}

sub changes_menu1{

	$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
	$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
	$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;

	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}

sub changes_menu2{

	$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
	$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
	$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;

	$log2 .=qq|<select name="cmd" size="1">\n|;
	$log2 .=qq|<option value="-1">그만두는</option>\n|;
	foreach(0 .. $#cmp){ $log2 .=qq|<option value="$_">$cmp[$_]</option>\n|;}
	$log2 .=qq|</select><br>\n|;
	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}

#-------------------------------------------------------------------------------
# 관직에 오름 처리
sub changes_exe{

	if(!$tm){

		$log .= "현재의 소속으로부터 새로운 소속에<br>\n";
		$tm=1;
		$type='입국';

		&changes_menu2;

	}elsif($tm==1){

		if($cmd<=-1 || $cmd>$#cmp){
			$log .= "그만둡니다<br>\n";
			$tm = $cmd = 0;
			$type='';
			&call_main_st;
		}elsif($cmd>=0 && (($c1 >= $c1a && $cmd == 1)||($c2 >= $c2a && $cmd == 2)||($c3 >= $c3a && $cmd == 3)||($c4 >= $c4a && $cmd == 4)||($c5 >= $c5a && $cmd == 5))){
			for($i=1,$j=1;$i<=$#cmp;$i++,$j++){
				if($cmd==$j){
					$log .= "$cmp[$i] 는 정원 가득해 입국할 수 없습니다<br>\n";
				}
			}
			$tm = $cmd = 0;
			$type='';
			&call_main_st;
		}elsif($lv < $clv){
			$log .= "관직에 오름은 레벨 $clv 로부터입니다. <br>우선은 수행으로 당신을 단련해 주세요. <br>\n";
			$tm = $cmd = 0;
			$type='';
			&call_main_st;
		}else{

			if($lv >= 20 && $camp && $cmd){#레헤″르가 15이상으로 앞이 무소속 이외로 원이 무소속 이외(국→국)
				$gold -=(15-$rank)*(int($lv/4))*8;
				$log .= "국가 이적 요금으로 해서 금화 $zx 를 지불합니다. <br>\n";

				my $zy = $rank*(int($lv/10))*4;
				if($camp == 1){$cg1 += $zy;}
				elsif($camp == 2){$cg2 += $zy;}
				elsif($camp == 3){$cg3 += $zy;}
				elsif($camp == 4){$cg4 += $zy;}
				elsif($camp == 5){$cg5 += $zy;}
				$log .= "$cmp[$camp] 의 국가\예\산이 $zy 상승했다. <br>\n";
	
			}elsif($lv >= 20 && !$cmd){#레헤″르가 15이상으로 앞이 무소속(무or국→무)

				$gold -=(15-$rank)*(int($lv/4))*8;
				$log .= "국가 이적 요금으로 해서 금화 $zx 를 지불합니다. <br>\n";
	
				my $zy = $rank*(int($lv/10))*4;
				if($camp == 1){$cg1 += $zy;}
				elsif($camp == 2){$cg2 += $zy;}
				elsif($camp == 3){$cg3 += $zy;}
				elsif($camp == 4){$cg4 += $zy;}
				elsif($camp == 5){$cg5 += $zy;}
				$log .= "$cmp[$camp] 의 국가\예\산이 $zy 상승했다.<br>\n";
	
			}
	
			$camp = $cmd;
			#레헤″르에 의한 관직에 오름시의 마이너스치
			$rank-=($lv > 40)? int(rand(3))+3 : int(rand(4))+1;

			$rank=1 if($rank<1);
			$rank=0 if(!$camp);
			$log .= "$cmp[$camp] 로 소속을 바꾸어 $cl[$rank] 의 계급이 주어졌다<br>\n";
			$roku=$time;

			$tm = $cmd = 0;
			$type='';
			&call_main_st;
		}
	}

	&write_data;

}





1;
